perm filename DUMMY.LAP[1,LMM] blob sn#034840 filedate 1973-04-13 generic text, type T, neo UTF8
(DECIMAL) 

(LAP DUMMY SUBR) 
	(MOVEI 1 (QUOTE NIL)) 
	(POPJ P) 
	NIL 

(DECIMAL) 

(PRINT (LIST (ADD1 7) (QUOTE =) 1 0))